home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Tie / StdHandle.pm < prev    next >
Encoding:
Perl POD Document  |  2009-06-26  |  690 b   |  41 lines
  1. package Tie::StdHandle; 
  2.  
  3. use Tie::Handle;
  4. our @ISA = 'Tie::Handle';
  5. use Carp;
  6.  
  7. sub TIEHANDLE 
  8. {
  9.  my $class = shift;
  10.  my $fh    = \do { local *HANDLE};
  11.  bless $fh,$class;
  12.  $fh->OPEN(@_) if (@_);
  13.  return $fh;
  14. }
  15.  
  16. sub EOF     { eof($_[0]) }
  17. sub TELL    { tell($_[0]) }
  18. sub FILENO  { fileno($_[0]) }
  19. sub SEEK    { seek($_[0],$_[1],$_[2]) }
  20. sub CLOSE   { close($_[0]) }
  21. sub BINMODE { binmode($_[0]) }
  22.  
  23. sub OPEN
  24. {
  25.  $_[0]->CLOSE if defined($_[0]->FILENO);
  26.  @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
  27. }
  28.  
  29. sub READ     { read($_[0],$_[1],$_[2]) }
  30. sub READLINE { my $fh = $_[0]; <$fh> }
  31. sub GETC     { getc($_[0]) }
  32.  
  33. sub WRITE
  34. {
  35.  my $fh = $_[0];
  36.  print $fh substr($_[1],0,$_[2])
  37. }
  38.  
  39.  
  40. 1;
  41.